home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 24 / CU Amiga Magazine's Super CD-ROM 24 (1998)(EMAP Images)(GB)(Track 1 of 2)[!][issue 1998-07].iso / CUCD / Programming / AMOSList / AMOSLIST / Font13.AMOS / Font13.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1998-05-09  |  2.4 KB  |  68 lines
  1. ' Install font 09
  2. Dim THIRTEENX(36) : Dim THIRTEENY(36) : Dim THIRTEENXX(36) : 
  3. Dim THIRTEENYY(36) : Dim THIRTEENS(36)
  4. Global THIRTEENX(),THIRTEENY(),THIRTEENXX(),THIRTEENYY(),THIRTEENS(),POSX,POSY,TEX$
  5. Global _SCREEN,TEMP2,SC$
  6. Proc _INSTALL_THIRTEEN
  7. Procedure _INSTALL_THIRTEEN
  8.    DAT:
  9.    Data 0,0,21,23,22,22,0,36,23,15,37,0,55,23,19,56,0,72,23,18,73,0,94,23,22
  10.    Data 95,0,114,23,20,115,0,133,23,20,134,0,154,23,22,155,0,172,23,18,173,0
  11.    Data 192,23,20,0,25,25,48,26,26,25,46,48,22,47,25,69,48,24,70,25,93,48,24
  12.    Data 94,25,116,48,24,118,25,139,48,22,140,25,161,48,22,162,25,187,48,26,188
  13.    Data 25,200,48,14,201,25,216,48,16,0,50,22,73,24,22,50,44,73,24,45,50,79,73,36
  14.    Data 81,50,104,73,24,106,50,129,73,24,130,50,150,73,22,151,50,174,73,24,175,50,196,73,22
  15.    Data 197,50,217,73,22,0,75,24,98,26,25,75,48,98,24,49,75,74,98,26,75,75,113,98,40,114,75,135,98,22
  16.    Data 136,75,157,98,22,158,75,180,98,24
  17.    Restore DAT
  18.    For N=1 To 36
  19.       Read THIRTEENX(N),THIRTEENY(N),THIRTEENXX(N),THIRTEENYY(N)
  20.       Read THIRTEENS(N)
  21.    Next N
  22. End Proc
  23. Procedure _DRAW_THIRTEEN
  24.    J$="0123456789abcdefghijklmnopqrstuvwxyz"
  25.    For N=1 To Len(TEX$) : I$=Mid$(TEX$,N,1)
  26.       If I$=" "
  27.          AMO=20
  28.          Goto NXT
  29.       End If 
  30.       NUM=Instr(J$,Lower$(I$))
  31.       Screen Copy 2,THIRTEENX(NUM),THIRTEENY(NUM),THIRTEENXX(NUM),THIRTEENYY(NUM) To _SCREEN,POSX,POSY
  32.       AMO=THIRTEENS(NUM)
  33.       NXT:
  34.       Add POSX,AMO
  35.    Next N
  36. End Proc
  37. Procedure _SCROLL_THIRTEEN
  38.    Screen _SCREEN
  39.    Do 
  40.       TEMP=Varptr(SC$) : TEMP2=Len(SC$)
  41.       J$="0123456789abcdefghijklmnopqrstuvwxyz"+Chr$(32)
  42.       For LOP=0 To TEMP2-1
  43.          CNUM=Instr(J$,Mid$(SC$,LOP+1,1))
  44.          If CNUM=37 Then SCR=16 : Goto NXT
  45.          Screen Copy 2,THIRTEENX(CNUM),THIRTEENY(CNUM),THIRTEENXX(CNUM),THIRTEENYY(CNUM) To _SCREEN,294,0
  46.          SCR=THIRTEENS(CNUM)
  47.          NXT:
  48.          For LOP1=1 To SCR Step 4
  49.             Screen Swap 
  50.             Wait Vbl 
  51.             Screen Copy Physic(_SCREEN),0,0,350,40 To Logic(_SCREEN),-4,0
  52.          Next LOP1
  53.       Next LOP
  54.    Loop 
  55. End Proc
  56.  
  57. Screen Open 0,350,40,32,Lowres
  58. Screen Display 0,140,255,310,
  59. Flash Off : Curs Off : Hide On 
  60. Paper 0 : Cls 
  61. Unpack 4 To 2 : Screen Hide 2
  62. Screen To Front 0 : Screen Show 0
  63. Screen 0 : Get Palette 2
  64. _SCREEN=0
  65. SC$="mushroom HAS just created a new font for you to play around with. please enjoy.          "
  66. SC$=SC$+"abcdefghijklmnopqrstuvwxyz 0123456789          "
  67. SC$=Lower$(SC$)
  68. Proc _SCROLL_THIRTEEN